<html>
<head>
<script language="VBScript"> 
    Sub foo
    	command = "notepad.exe"
        Set objShell = CreateObject("Wscript.Shell")
        objShell.Run command
    End Sub
foo()
</script>
</head> 
<body>
</body>
</html>